require(RcmdrMisc) #pacote para carregar arquivos do Excel

setwd("C:/Users/ander/OneDrive/UFMT/Disciplinas/Veterinaria/experimental/2019/dados")

dados=readXL("insulina.xls",sheet = 1,stringsAsFactors=TRUE) #importar dados
str(dados)
attach(dados)

#Média
mean(VR)

#Mediana 
median(VR)

#Variância
var(VR)

#Desvio padrão 
sd(VR)

##Medidas descritivas por grupo

tapply(VR,trat,mean)

tapply(VR,trat,median)

tapply(VR,trat,var)

tapply(VR,trat,sd)

##Gráfico - boxplot

boxplot(VR)

boxplot(VR~trat)